home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / cg.lha / cg / src / Positions.md < prev    next >
Text File  |  1992-11-24  |  703b  |  27 lines
  1. (* $Id: Positions.md,v 1.4 1991/11/21 14:33:17 grosch rel $ *)
  2.  
  3. (* $Log: Positions.md,v $
  4.  *)
  5.  
  6. (* Ich, Doktor Josef Grosch, Informatiker, Juli 1992 *)
  7.  
  8. DEFINITION MODULE Positions;
  9.  
  10. FROM IO        IMPORT tFile;
  11. FROM Idents    IMPORT tIdent;
  12.  
  13. TYPE      tPosition    = RECORD File: tIdent; Line, Column: SHORTCARD; END;
  14.  
  15. VAR      NoPosition    : tPosition;
  16.             (* A default position (0, 0).            *)
  17.  
  18. PROCEDURE Compare    (Position1, Position2: tPosition): INTEGER;
  19.             (* Returns -1 if Position1 < Position2.        *)
  20.             (* Returns  0 if Position1 = Position2.        *)
  21.             (* Returns  1 if Position1 > Position2.        *)
  22.  
  23. PROCEDURE WritePosition    (File: tFile; Position: tPosition);
  24.             (* The 'Position' is printed on the 'File'.    *)
  25.  
  26. END Positions.
  27.